home *** CD-ROM | disk | FTP | other *** search
/ Cerilica Vantage Pre-Release / Cerilica Vantage Pre-Release - Disc 2.iso / vantag.arc / !DotGain_Prologue2 < prev    next >
Encoding:
Text File  |  2001-07-06  |  8.6 KB  |  153 lines
  1. %%BeginResource: procset Acorn_Prologue2 4.02 0
  2. %%Title: (Main prologue (Level 2) for the PostScript printer driver module.)
  3. %%Version: 4.02 0
  4. %%CreationDate: (7/19/96) ()        % (19-Jul-1996)
  5. %%Copyright: ((C) 1996 Acorn Computers Ltd All Rights Reserved)
  6. %%Author: (Acorn Computers Ltd)
  7. % first used with version 4.36 of the module
  8. /PDdict 200 dict def PDdict begin/BD{bind def}bind def/LD{load
  9. def}BD/LW/setlinewidth LD/St/stroke LD/T/translate LD/S/save LD/R/restore
  10. LD/GS/gsave LD/GR/grestore LD/CP/clippath LD/Cl/closepath LD/M/moveto
  11. LD/RM/rmoveto LD/L/lineto LD/B/curveto LD/I/index LD/SW/stringwidth
  12. LD/GCF/currentfont LD/GCM/currentmatrix LD/SCM/setmatrix LD/CCM/concatmatrix
  13. LD/ED{exch def}BD/Copies{/#copies ED showpage}BD/MP{400. div}BD/Fb{65536.
  14. div}BD/WM1 matrix def/WM2 matrix def/IM1 matrix def/UM{Fb 4 1 roll Fb 4 1
  15. roll Fb 4 1 roll Fb 4 1 roll 0. 0. WM1 astore concat}BD/Bx{4 copy 5 1 roll 4
  16. 2 roll 5 -1 roll M L L L Cl}BD/Cp{Bx clip newpath}BD/PS{72. 180. div dup
  17. scale newpath Cp[]0. setdash}BD/MC{0. 0. Cp}BD/G{255. div setgray}BD/C{255.
  18. div 3 1 roll 255. div 3 1 roll 255. div 3 1 roll setrgbcolor}BD/Eps 0.1 MP
  19. def/VSt{2 setlinecap 0 setlinejoin 2.000001 setmiterlimit 2. LW 0. Eps
  20. rlineto St}BD/VFl{Cl GS fill GR VSt}BD/Li{M L VSt}BD/Pt{M VSt}BD/Tr{M L L
  21. VFl}BD/Rc{Bx VFl}BD/Pr{6 copy M L L 5 -1 roll 4 -1 roll sub add 4 1 roll
  22. exch sub add exch L VFl}BD/Ln{dup mul exch dup mul add sqrt}BD/Cir{0. 360.
  23. arc}BD/VC{Ln Cir}BD/CS{VC VSt}BD/CF{VC VFl}BD/VA{2 copy Ln 5 1 roll exch
  24. atan 3 1 roll exch atan arc}BD/Ac{VA VSt}BD/Cd{VA VFl}BD/Sc{5 I 5 I M VA
  25. VFl}BD/VE{0. 5 1 roll WM1 astore WM2 GCM exch concat 0. 0. 1. Cir
  26. SCM}BD/ES{VE VSt}BD/EF{VE VFl}BD/Max{2 copy lt{exch}if pop}BD/DM{256. div 6
  27. 1 roll 256. div 6 1 roll Fb 256. div 6 1 roll Fb 256. div 6 1 roll Fb 256.
  28. div 6 1 roll Fb 256. div 6 1 roll WM1 astore concat}BD/SDM{256. div 6 1 roll
  29. 256. div 6 1 roll Fb 6 1 roll Fb 6 1 roll Fb 6 1 roll Fb 6 1 roll 6 copy WM1
  30. astore concat pop pop 0 0 IM1 astore pop}BD/IT{IM1 itransform}BD/CJ{2 I 0
  31. eq{Fb setmiterlimit}{pop}ifelse setlinecap setlinejoin}BD/WS 4096 string
  32. def/SMat matrix def/SS{div 3 1 roll div exch scale}BD/SM{1. exch div 0. 0.
  33. 1. 0. 0. SMat astore pop}BD/RC{WS 0 3 I put dup 1 gt{WS 1 3 I put dup 2
  34. gt{WS 2 3 I put WS 3 3 I put dup 4 gt{WS 4 WS 0 4 getinterval putinterval
  35. dup 8 gt{WS 8 WS 0 8 getinterval putinterval dup 16 gt{WS 16 WS 0 16
  36. getinterval putinterval dup 32 gt{WS 32 WS 0 32 getinterval putinterval dup
  37. 64 gt{WS 64 WS 0 64 getinterval putinterval dup 128 gt{WS 128 WS 0 128
  38. getinterval putinterval dup 256 gt{WS 256 WS 0 256 getinterval putinterval
  39. dup 512 gt{WS 512 WS 0 512 getinterval putinterval dup 1024 gt{WS 1024 WS 0
  40. 1024 getinterval putinterval dup 2048 gt{WS 2048 WS 0 2048 getinterval
  41. putinterval}if}if}if}if}if}if}if}if}if}if}if}if pop
  42. pop}BD/RLEFilt{currentfile/ASCII85Decode filter/RunLengthDecode
  43. filter}BD/S1{true SMat RLEFilt imagemask}BD 255 2048 RC/FFs WS 0 2048
  44. getinterval 2048 string copy def/SF{/WS2 FFs 0 4 I 7 add 8 idiv 4 I mul
  45. getinterval def true SMat{WS2}imagemask}BD/SN{8 SMat RLEFilt
  46. image}BD/D32{currentfile/ASCII85Decode filter}BD/S32{2 copy  mul 3 mul/Rem
  47. exch def 8 SMat D32 false 3 colorimage}BD/JM{1. 0. 0. -1. 0. 6 -1 roll cvr
  48. SMat astore pop}BD/JPFilt{currentfile/ASCII85Decode filter 1 dict/DCTDecode
  49. filter}BD/J8{8 SMat JPFilt image}BD/J32{8 SMat JPFilt false 3
  50. colorimage}BD/TS{1. exch div exch 1. exch div exch scale}BD/Fn{0.016 div
  51. exch 0.016 div exch dup/fheight ED 0. 0. 3 -1 roll 0. 0. WM1 astore exch
  52. findfont exch makefont setfont}BD/Ul{GS 2 copy Ln ulpos ulthick 2. div sub
  53. 256. div fheight mul exch div dup 2 I neg mul exch 3 I mul RM 2 copy rlineto
  54. ulthick 256. div fheight mul LW 0 setlinecap St GR}BD/AC{3 -1 roll exch sub
  55. 3 I length div 4 1 roll sub 1 I length div 3 1 roll}BD/Tx{M 2 I SW AC
  56. ashow}BD/JTx{M 7 I dup 4 1 roll SW AC pop exch 4 -1 roll add 3 1 roll add 6
  57. -1 roll awidthshow}BD/UTx{/ulthick ED/ulpos ED M Ul 2 I SW AC
  58. ashow}BD/UJTx{M/ulthick ED/ulpos ED Ul pop pop 7 I dup 4 1 roll SW AC pop
  59. exch 4 -1 roll add 3 1 roll add 6 -1 roll
  60. awidthshow}BD/kload{{ceiling}stopped{aload pop}{0}ifelse}BD/kproc{5 I 5 I RM
  61. 2 I{exch 256 mul  add 2 I exch 2 copy known{WM2 SCM  get kload RM  WM1
  62. SCM}{pop pop}ifelse}{pop pop}ifelse}BD/KTx{WM1 GCM GCF/FontMatrix get exch
  63. WM2 CCM pop M 2 I SW AC GCF/KernData known{GCF/KernData get true}{null
  64. false}ifelse{kproc}4 -1 roll    kshow pop pop pop pop}BD/UKTx{6 2
  65. roll/ulthick ED/ulpos ED 2 copy M   4 2 roll Ul  pop pop KTx}BD/jkproc{5 I 5
  66. I RM 1 I 7 I eq{8 I 8 I RM}if 2 I{exch 256 mul  add 2 I exch 2 copy
  67. known{WM2 SCM  get kload RM  WM1 SCM}{pop pop}ifelse}{pop
  68. pop}ifelse}BD/JKTx{WM1 GCM GCF/FontMatrix get exch WM2 CCM pop M 8 -1 roll
  69. dup 4 1 roll SW AC 5 1 roll exch 4 -1 roll add 3 1 roll add GCF/KernData
  70. known{GCF/KernData get true}{null false}ifelse{jkproc}6 -1 roll  kshow
  71. 7{pop}repeat}BD/UJKTx{2 copy M 6 2 roll/ulthick ED/ulpos ED Ul pop pop
  72. JKTx}BD/cdefs 224 8 mul string def cdefs 127 32 sub 8 mul FFs 0 8
  73. getinterval putinterval/DC{32 sub 8 mul cdefs exch 8 getinterval currentfile
  74. exch readhexstring pop pop}BD/ArcFont dup 6 dict dup begin/FontMatrix[1. 0.
  75. 0. 1. 0. -1.]def/FontType 3 def/FontBBox[0. 0. 1. 1.]def/Encoding 256 array
  76. def 0 1 255{Encoding exch/.notdef put}for/BuildChar{xgap ygap setcharwidth 8
  77. 8 true 8. 0. 0. 8. 0. 0. WM2 astore 5 -1 roll 32 sub 8 mul cdefs exch 8
  78. getinterval imagemask pop}BD end definefont def/V{GS 2 I div/ygap ED 2 I
  79. div/xgap ED 0. 0. 3 -1 roll 0. 0. WM1 astore ArcFont exch makefont setfont M
  80. show GR}BD/PAR{6 -2 roll pop pop 10 dict begin dup 0 lt/hflip ED abs/h ED
  81. dup 0 lt/wflip ED abs/w ED 256. div/uly ED 256. div/ulx ED 256. div/lry ED
  82. 256. div/lrx ED 256. div/lly ED 256. div/llx ED[lrx llx sub w div lry lly
  83. sub w div ulx llx sub h div uly lly sub h div llx lly]concat hflip{0 h T 1
  84. -1 scale}if wflip{w 0 T -1 1 scale}if end}BD/VALACC 14 dict dup begin/acute
  85. 1 def/grave 1 def/circumflex 1 def/dieresis 1 def/ring 1 def/tilde 1
  86. def/breve 1 def/caron 1 def/cedilla 1 def/dotaccent 1 def/hungarumlaut 1
  87. def/slash 1 def/macron 1 def/ogonek 1 def end def/CKN{2 copy known{get
  88. type/arraytype ne}{pop pop false}ifelse}def/OKA{2 copy known{pop pop
  89. false}{dup length dup 1 gt{string cvs dup 0 1 getinterval cvn exch 1 1 I
  90. length 1 sub getinterval cvn 3 -1 roll dup 2 I CKN exch 3 I CKN and VALACC 2
  91. I known and{true}{pop pop false}ifelse}{pop pop pop
  92. false}ifelse}ifelse}def/RF{findfont false 3 1 roll _RFE}def/_RFE{dup length
  93. dict begin{1 I/FID ne{def}{pop pop}ifelse}forall dup type/arraytype
  94. eq{/FontMatrix FontMatrix 3 -1 roll 6 array CCM def}{pop}ifelse dup
  95. type/arraytype eq  currentdict/Encoding known and{/Encoding exch
  96. def}{pop}ifelse currentdict end definefont pop}def/RFE{findfont
  97. dup/CharStrings known{RFET1}{_RFE}ifelse}def/RFET1{dup length 4 add dict
  98. begin/CBOX{newpath 0 0 M GS ifm SCM false charpath matrix SCM pathbbox
  99. currentpoint GR}BD/CHEI{CBOX pop pop 4 1 roll pop pop pop}BD/SRCH{-1
  100. exch/Encoding load   0 1 2 I length 1 sub{2 copy get 3 I eq{4 -1 roll pop 3
  101. 1 roll exit}{pop}ifelse}for pop pop dup -1 ne{1 string dup 0 4 -1 roll put
  102. true}{pop false false}ifelse}BD/MKACC{SRCH 3 -1 roll SRCH 3 -1 roll and{3
  103. dict begin/letter exch def/accent exch def/ifm/FontMatrix load matrix
  104. invertmatrix def GS matrix SCM letter CBOX 6 2 roll accent CBOX pop pop 6 -1
  105. roll 7 I sub 3 -1 roll 4 I sub sub 2 div 7 -1 roll 5 -1 roll sub add 7 1
  106. roll 0 gt{(X)CHEI(x)CHEI 2 copy add 2 div 5 -1 roll le{sub}{pop pop 0}ifelse
  107. 5 1 roll pop pop}{pop pop pop 0 3 1 roll}ifelse GR setcharwidth 0 0 M GS ifm
  108. concat letter show GR M    GS ifm concat accent show  GR end}{pop pop}ifelse
  109. pop}BD dup/CharStrings get 0 4 I{2 I exch OKA{pop pop 1 add}if}forall 3 -1
  110. roll{1 I/FID ne 2 I/CharStrings ne and{def}{pop pop}ifelse}forall 1 I length
  111. add dict exch{2 I 3 1 roll put}forall 2 I{2 copy OKA{[3 1 roll/MKACC cvx]cvx
  112. 2 I 3 1 roll put}{pop}ifelse}forall/CharStrings exch def dup type/arraytype
  113. eq{/FontMatrix FontMatrix 3 -1 roll 6 array CCM def}{pop}ifelse/Encoding
  114. exch def currentdict end definefont pop}BD end 
  115. %%EndResource
  116. %%BeginResource: procset Howsoft_DotGain 0.1 0
  117. %%Title: (Dot gain correction)
  118. %%Version: 0.1 0
  119. %%CreationDate: (9/17/96) ()        % (17-Sep-1996)
  120. %%Copyright: ((C) 1996 Howsoft All Rights Reserved)
  121. /HDGdict 6 dict def
  122. HDGdict begin
  123.  
  124. /HDGRange {                % <value> <low> <high> HDGRange
  125.     3 1 roll 2 copy lt {exch} if
  126.     pop 2 1 roll 2 copy gt {exch} if
  127.     pop
  128.     }bind def
  129.  
  130. /HDGGAM 1.0 def
  131. /HDGMAX 1.0 def
  132. /HDGMIN 0.0 def
  133.  
  134. /HDGTransfer {            % <highlight%> <shadow%> <gamma> HDGTransfer
  135.     /HDGGAM exch def
  136.     100.0 div /HDGMAX exch def
  137.     100.0 div /HDGMIN exch def
  138.     [ { dup dup 0 ne exch 1 ne
  139.         and { HDGdict begin
  140.           1.0 exch sub
  141.           HDGMAX HDGMIN sub mul
  142.           HDGMIN add
  143.           1.0 exch sub
  144.           HDGGAM exp
  145.           0 1 HDGRange
  146.           end
  147.         } if
  148.       } /exec load currenttransfer /exec load ] cvx settransfer
  149.     }bind def
  150.  
  151. end
  152. %%EndResource
  153.